home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1993 / 11 / 02 / tips & tricks / getopusfiles.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-06-01  |  652 b   |  32 lines
  1. /* Um das aktive Fenster von
  2.    DirOpus zu ermitteln,
  3.    gibt's diesen Befehl */
  4. Status 3
  5. window=RESULT
  6. /* Der Variablen Dirs wird
  7.    die Zeichenkette der an-
  8.    gewählten Verzeichnisse
  9.    zugewiesen */
  10. GetSelectedDirs
  11. dirs=RESULT
  12. if dirs = "RESULT" then exit
  13. /* Die Anzahl der markierten
  14.    Einträge auslesen */
  15. Status 9 window
  16. Anzahl=RESULT+1
  17. /* PARSE VAR bewirkt, daß die
  18.    diversen Namen in ein
  19.    Array geschrieben werden.
  20.    Die Namen sind dann per
  21.    Punktoperator auswählen */
  22. n=Anzahl
  23. DO UNTIL n=1
  24.   n=n-1
  25.   PARSE VAR dirs Namen.n dirs
  26.   /* Die folgende Zeile dient
  27.      der Überprüfung und kann
  28.      weggelassen werden */
  29.   say Namen.n
  30. END
  31.  
  32.